home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 1.iso
/
ARGONET
/
PD
/
MATHS
/
RLAB
/
RLAB125.ZIP
/
!RLaB
/
rlib
/
disp
< prev
next >
Wrap
Text File
|
1994-09-23
|
588b
|
28 lines
//-------------------------------------------------------------------//
// Syntax: disp ( S )
// Description:
// The disp function does two things,
// 1) If the argument is a matrix, it prints the matrix without the
// variable label to the standard output.
// 2) If the argument is a string, it prints the string to the
// standard output.
//-------------------------------------------------------------------//
disp = function ( S )
{
if (class (S) == "string")
{
fprintf ("stderr", "%s\n", S[1]);
else if (class (S) == "num") {
S + 0 ?
}}
return 1;
};